(fset 'find-menu-item #[(menubar path &optional parent) "¼à┴┬\":??¡≤┼ë½╗@½«@╚@!½ç@╔H¬Å@;½à@¬ä@@ùܽï@┼ë¬KAë¼EA½ª:½ï╩AA#¬Ü½ë╦╠═D\"¬ì╦╠╬@D\"¬äB*ç" [parent mapcar downcase path menubar nil result rest vectorp 0 find-menu-item signal error "not a submenu" "no such submenu"] 5])
(fset 'disable-menu-item #[(path) "┬ \"ë@A¼Ä╟╚½â╔¬ü╩D\"ê:½ä╚╦!ê╠═Iê╬ ê,ç" [current-menubar menubar find-menu-item path pair item menu signal error "No such menu item" "No such menu" "can't disable menus, only menu items" 2 nil set-menubar-dirty-flag] 5 "\
Make the named menu item be unselectable.
PATH is a list of strings which identify the position of the menu item in
the menu hierarchy. (\"File\" \"Save\") means the menu item called \"Save\"
under the toplevel \"File\" menu. (\"Menu\" \"Foo\" \"Item\") means the
menu item called \"Item\" under the \"Foo\" submenu of \"Menu\"."])
(fset 'enable-menu-item #[(path) "┬ \"ë@A¼Ä╟╚½â╔¬ü╩D\"ê:½à╚╦\"ê╠═Iê╬ ê,ç" [current-menubar menubar find-menu-item path pair item menu signal error "No such menu item" "No such menu" "%S is a menu, not a menu item" 2 t set-menubar-dirty-flag] 5 "\
Make the named menu item be selectable.
PATH is a list of strings which identify the position of the menu item in
the menu hierarchy. (\"File\" \"Save\") means the menu item called \"Save\"
under the toplevel \"File\" menu. (\"Menu\" \"Foo\" \"Item\") means the
menu item called \"Item\" under the \"Foo\" submenu of \"Menu\"."])
(fset 'add-menu-item #[(menu-path item-name function enabled-p &optional before) "¼ä┴┬!ê¼ä┴─!ê┼╞ &ç" [menu-path error "must specify a menu path" item-name "must specify an item name" add-menu-item-1 t function enabled-p before] 7 "\
Add a menu item to some menu, creating the menu first if necessary.
If the named item exists already, it is changed.
MENU-PATH identifies the menu under which the new menu item should be inserted.
It is a list of strings; for example, (\"File\") names the top-level \"File\"
menu. (\"File\" \"Foo\") names a hypothetical submenu of \"File\".
ITEM-NAME is the string naming the menu item to be added.
FUNCTION is the command to invoke when this menu item is selected.
If it is a symbol, then it is invoked with `call-interactively', in the same
way that functions bound to keys are invoked. If it is a list, then the
list is simply evaluated.
ENABLED-P controls whether the item is selectable or not.
BEFORE, if provided, is the name of a menu item before which this item should
be added, if this item is not on the menu already. If the item is already
Remove the named menu item from the menu hierarchy.
PATH is a list of strings which identify the position of the menu item in
the menu hierarchy. (\"File\" \"Save\") means the menu item called \"Save\"
under the toplevel \"File\" menu. (\"Menu\" \"Foo\" \"Item\") means the
menu item called \"Item\" under the \"Foo\" submenu of \"Menu\"."])
(fset 'relabel-menu-item #[(path new-name) ";¼ç┴┬├D\"╞\"ë@ A\n ¼Å┴╦\n½â╠¬ü═D\"ê :½ì @;½ç áê¬å ╬Iê╧ ê ,ç" [new-name signal wrong-type-argument stringp current-menubar menubar find-menu-item path pair item menu error "No such menu item" "No such menu" 0 set-menubar-dirty-flag] 5 "\
Change the string of the specified menu item.
PATH is a list of strings which identify the position of the menu item in
the menu hierarchy. (\"File\" \"Save\") means the menu item called \"Save\"
under the toplevel \"File\" menu. (\"Menu\" \"Foo\" \"Item\") means the
menu item called \"Item\" under the \"Foo\" submenu of \"Menu\".
NEW-NAME is the string that the menu item will be printed as from now on."])
(fset 'add-menu #[(menu-path menu-name menu-items &optional before) "¼ä┴┬!ê¼ä┴─!ê┼╞╚ &ç" [menu-name error "must specify a menu name" menu-items "must specify some menu items" add-menu-item-1 nil menu-path t before] 7 "\
Add a menu to the menubar or one of its submenus.
If the named menu exists already, it is changed.
MENU-PATH identifies the menu under which the new menu should be inserted.
It is a list of strings; for example, (\"File\") names the top-level \"File\"
menu. (\"File\" \"Foo\") names a hypothetical submenu of \"File\".
If MENU-PATH is nil, then the menu will be added to the menubar itself.
MENU-NAME is the string naming the menu to be added.
MENU-ITEMS is a list of menu item descriptions.
Each menu item should be a vector of three elements:
- a string, the name of the menu item;
- a symbol naming a command, or a form to evaluate;
- and t or nil, whether this item is selectable.
BEFORE, if provided, is the name of a menu before which this menu should
be added, if this menu is not on its parent already. If the menu is already